home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / sound / soundconvert / install < prev    next >
Text File  |  1997-03-19  |  11KB  |  450 lines
  1. ; * $VER: Install Sound Converter 1.3
  2. ; * Script written by Eckhard Ludwig
  3. ;=============================================================================
  4.  
  5. (complete 0)
  6.  
  7. (set Opt 2)
  8. (set #welcome
  9.   (cat
  10.     "\n\n\nWelcome to the Sound Converter installation utility.\n\n"
  11.     "This program lets you install SoundConverter 1.3 on your Amiga.\n\n\n"
  12.     "SoundConverter © 1997 Eckhard Ludwig."
  13.   ))
  14.  
  15. (set #choose-text
  16.   (cat "Please choose a directory where SoundConvert should be installed. A drawer will be created there."
  17.   ))
  18.  
  19. (set #choose-help
  20.   (cat "In this location a drawer will be created. All files will be installed inside this drawer. The complete installation will require about 900KB of free harddisk space."
  21.   ))
  22.  
  23. (set #inst-main
  24.   (cat "Installing SoundConvert ..."
  25.   ))
  26.  
  27. (set #inst-Lokale
  28.   (cat "Installing SCLokale.exe ..."
  29.   ))
  30.  
  31. (set #create-maindir
  32.   (cat "Creating SoundConvert directory"
  33.   ))
  34.  
  35. (set #create-bindir
  36.   (cat "Creating Bin dir"
  37.   ))
  38.  
  39. (set #create-docsdir
  40.   (cat "Creating Docs dir"
  41.   ))
  42.  
  43. (set #inst-bin
  44.   (cat "Installing Tools ..."
  45.   ))
  46.  
  47. (set #inst-docs
  48.   (cat "Installing program documentation ..."
  49.   ))
  50.  
  51. (set #inst-fonts
  52.   (cat "Installing XEN Fonts ..."
  53.   ))
  54.  
  55. (set #Install-Prompt 
  56.   (cat "Which of the following locale should be installed ?\nItems marked as (n/a) are not available in the current installation archive !"
  57.   ))
  58.  
  59. (set #Locale-Copy   "Copy cataloges ...")
  60.  
  61. (set #mwb-0 "8-color MWB GUI")
  62.  
  63. (set #mwb-1 "4-color standard GUI")
  64.  
  65. (set #mwb-detected-prompt
  66.   (cat "MagicWB 2.0 detected.\nYou can use either MWB-compatible 8-color icons "
  67.        "or the system standard 4-color icons for the SoundConverter GUI.\n\n"
  68.   ))
  69.  
  70. (set #mwb-detected-help
  71.   (cat "MagicWB 2.0 was detected by the install program. You should use the MagicWB-Style "
  72.        "GUI for SoundConverter, too. But you can also install the standard system look GUI, "
  73.        "if you wish.\n\n".
  74.        @askchoice-help
  75.   ))
  76.  
  77. (set #mwb-notdetected-prompt
  78.   (cat "MagicWB 2.0 not detected.\nThough you might be able to use the 8-color GUI "
  79.        "(see help for details) it's more likely that you have to install the "
  80.        "standard system look GUI instead.\n\n"
  81.   ))
  82.  
  83. (set #mwb-notdetected-help
  84.   (cat "MagicWB 2.0 could not be found by the install program. The 8-color GUI in this "
  85.        "package are designed for MagicWB 2.0, but they also work with MagicWB 1.x if you "
  86.        "use a screen with 8 colors exactly. In all other cases you will have to install "
  87.        "the standard system look GUI.\n\n"
  88.        @askchoice-help
  89.   ))
  90.  
  91.  (SET #exit-Msg 
  92.   (CAT "\nPlease install Play16 and MPEG3Play to BIN !\n\nMuch fun with Programmes\n wish you\n\n"
  93.                    "Eckhard Ludwig" 
  94.   ))
  95.  
  96. ; deutsche Texte *****************************
  97.  
  98. (IF (= @language "deutsch")
  99. (
  100. (set Opt 1)
  101. (set #welcome
  102.   (cat
  103.     "\n\n\nWillkommen zu dem Sound Converter Installations Utility.\n\n"
  104.     "Dieses Programm installiert Sound Converter 1.3 auf Ihrem Amiga.\n\n\n"
  105.     "SoundConverter ist ©1997 by Eckhard Ludwig."
  106.   ))
  107.  
  108. (set #choose-text
  109.   (cat "Bitte wählen Sie das Verzeichniss wohin SoundConvert installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an."
  110.   ))
  111.  
  112. (set #choose-help
  113.   (cat "Bei der Installation werden alle Dateien in dieses Verzeichniss installiert. Die vollständige Installation von SoundConvert belegt auf der Festplatte etwa 900KB."
  114.   ))
  115.  
  116. (set #create-maindir
  117.   (cat "Erstelle SoundConvert-Verzeichniss"
  118.   ))
  119.  
  120. (set #inst-main
  121.   (cat "Installiere Hauptprogramm ..."
  122.   ))
  123.  
  124. (set #inst-Lokale
  125.   (cat "Installiere SCLokale.exe ..."
  126.   ))
  127.  
  128. (set #create-bindir
  129.   (cat "Erstelle BIN-Verzeichniss"
  130.   ))
  131.  
  132. (set #create-docsdir
  133.   (cat "Erstelle Docs-Verzeichniss"
  134.   ))
  135.  
  136. (set #inst-bin
  137.   (cat "Installiere Tools ..."
  138.   ))
  139.  
  140. (set #inst-docs
  141.   (cat "Installiere Programm Dokumentation ..."
  142.   ))
  143.  
  144. (set #inst-fonts
  145.   (cat "Installiere XEN Fonts ..."
  146.   ))
  147.  
  148. (set #Install-prompt 
  149.   (cat "Bitte wählen Sie für das Programm die bevorzugte(n) Sprachversion(en).\nMit n/a gekennzeichnete Sprachen sind momentan nicht verfügbar."
  150.   ))
  151.  
  152. (set #Locale-Copy   "Kopiere Cataloge ...")
  153.  
  154. (set #mwb-0 "8-farb MWB GUI")
  155.  
  156. (set #mwb-1 "4-farb Standard GUI")
  157.  
  158. (set #mwb-detected-prompt
  159.   (cat "MagicWB 2.0 gefunden.\nSie können entweder MWB-kompatible 8-Farb-Icons "
  160.        "oder die Standard System-Icons für die Grafische Benutzeroberfläche von SoundConvert 1.3 verwenden.\n\n"
  161.   ))
  162.  
  163. (set #mwb-detected-help
  164.   (cat "Das Installationsprogramm hat festgestellt, daß MagicWB 2.0 auf Ihrem "
  165.        "Rechner installiert ist. Sie sollten deshalb auch für das SoundConverter GUI die Icons im MagicWB-Stil verwenden. "
  166.        "Dazu wird eigentlich nichts weiter als das Tooltype 8COLORS gesetzt :-).\n\n"
  167.        @askchoice-help
  168.   ))
  169.  
  170. (set #mwb-notdetected-prompt
  171.   (cat "MagicWB 2.0 ist nicht installiert.\nUnter bestimmten Umständen können Sie "
  172.        "dennoch das 8-farbige GUI verwenden (siehe Hilfe). In aller Regel werden Sie "
  173.        "aber die Standard System-Farben setzen müssen.\n\n"
  174.   ))
  175.  
  176. (set #mwb-notdetected-help
  177.   (cat "Das Installationsprogramm konnte MagicWB 2.0 nicht auf Ihrem System finden. "
  178.        "Die 8-farbige Benutzeroberfläche funktioniert nur mit der MagicWB 2.0 korrekt, "
  179.        "ausser Sie verwenden eine Workbench mit exakt 8 Farben und der MagicWB Palette. "
  180.        "In diesem Fall können Sie ebenfalls die 8-farbige Benutzeroberfläche setzen.\n\n"
  181.        @askchoice-help
  182.   ))
  183.  
  184. (SET #exit-Msg
  185.   (CAT "\nZum Konvertieren nach IFF 8SVX bitte Play16 im BIN Verzeichnis installieren.\nLesen von MP3 benötigt MPEG3Play !\n\nViel Spaß mit den Programmen\n wünscht\n\n"
  186.                    "Eckhard Ludwig"
  187.   ))
  188. ))
  189. ;*********************************************
  190. ; Greetings & Path ...
  191.  
  192. (message #welcome)
  193.  
  194. (welcome)
  195.  
  196. (set @default-dest (getassign "Work" "dva"))
  197.   (if (= @default-dest "")
  198.    (set @default-dest "SYS:"))
  199.   
  200. (set @default-dest (askdir
  201.     (prompt #choose-text)
  202.     (help #choose-help)
  203.     (default @default-dest))
  204.   ) 
  205.   
  206. (set @default-dest (tackon @default-dest "SoundConvert"))
  207.  
  208. (makedir @default-dest (prompt #create-maindir)(infos))
  209.   
  210. ;*********************************************
  211. ; Installation procedure
  212. ; 
  213.  
  214. (copyfiles
  215.     (prompt    #inst-main)
  216.     (help    @copyfiles-help)
  217.     (source "SoundConvert")
  218.     (dest    @default-dest)
  219.         (confirm "EXPERT")
  220.         (optional "force")
  221.     (infos)
  222. )
  223.  
  224. (complete 5)
  225.  
  226. (makedir (tackon @default-dest "bin")
  227.  (prompt #create-bindir)
  228. )
  229.  
  230. (copyfiles
  231.     (prompt    #inst-bin)
  232.     (help    @copyfiles-help)
  233.     (source "bin")
  234.     (dest    (tackon @default-dest "bin"))
  235.        (pattern "#?")
  236.        (optional "force")
  237.        (confirm "EXPERT")
  238. )
  239.  
  240. (complete 50)
  241.  
  242. (makedir (tackon @default-dest "Docs")
  243.  (prompt #create-docsdir)
  244.  (infos)
  245. )
  246.  
  247. (copyfiles
  248.     (prompt    #inst-docs)
  249.     (help    @copyfiles-help)
  250.     (source "Docs")
  251.     (dest    (tackon @default-dest "Docs"))
  252.        (pattern "#?")
  253.        (optional "force")
  254.        (confirm "EXPERT")
  255.        (files)
  256.     (infos)
  257. )
  258.  
  259. (complete 70)
  260.  
  261. (copyfiles
  262.     (prompt    #inst-fonts)
  263.     (help    @copyfiles-help)
  264.     (source "Fonts")
  265.     (dest    "SYS:Fonts")
  266.        (pattern "#?")
  267.        (optional "force")
  268.        (confirm "EXPERT")
  269.        (files)
  270. )
  271. (copyfiles
  272.     (prompt    #inst-fonts)
  273.     (help    @copyfiles-help)
  274.     (source "Fonts/XEN")
  275.     (dest    "SYS:Fonts/XEN")
  276.        (pattern "#?")
  277.        (optional "force")
  278.        (confirm "EXPERT")
  279.        (files)
  280. )
  281. (complete 80)
  282.  
  283. ;*********************************************
  284. ; copy the locales
  285.  
  286. (IF (= @language "All")
  287.     (set Opt 511))
  288.  
  289. (set installchoice
  290.    (askoptions
  291.    (prompt #Install-Prompt)
  292.    (help @askoptions-help)
  293.    (choices "Deutsch" "English" "dansk n/a" "français n/a" "italiano" "nederlands" "norsk n/a" "suomi n/a" "svenska n/a")
  294.    (default Opt)
  295. ))
  296.  
  297. (IF (BITAND installchoice 2)
  298.   (copyfiles
  299.    (prompt #Locale-Copy)
  300.    (help @copyfiles-help)
  301.    (source "Locale/Catalogs/english")
  302.    (dest "SYS:Locale/Catalogs/english")
  303.    (pattern "#?.catalog")
  304.    (confirm "EXPERT")
  305.    (optional "force" "nofail")
  306.   ))
  307.  
  308. (IF (BITAND installchoice 4)
  309.   (copyfiles
  310.    (prompt #Locale-Copy)
  311.    (help @copyfiles-help)
  312.    (source "Locale/Catalogs/dansk")
  313.    (dest "SYS:Locale/Catalogs/dansk")
  314.    (pattern "#?.catalog")
  315.    (confirm "EXPERT")
  316.    (optional "force" "nofail")
  317.   ))
  318.  
  319. (IF (BITAND installchoice 8)
  320.   (copyfiles
  321.    (prompt #Locale-Copy)
  322.    (help @copyfiles-help)
  323.    (source "Locale/Catalogs/français")
  324.    (dest "SYS:Locale/Catalogs/français")
  325.    (pattern "#?.catalog")
  326.    (confirm "EXPERT")
  327.    (optional "force" "nofail")
  328.   ))
  329.  
  330. (IF (BITAND installchoice 16)
  331.   (copyfiles
  332.    (prompt #Locale-Copy)
  333.    (help @copyfiles-help)
  334.    (source "Locale/Catalogs/italiano")
  335.    (dest "SYS:Locale/Catalogs/italiano")
  336.    (pattern "#?.catalog")
  337.    (confirm "EXPERT")
  338.    (optional "force" "nofail")
  339.   ))
  340.  
  341. (IF (BITAND installchoice 32)
  342.   (copyfiles
  343.    (prompt #Locale-Copy)
  344.    (help @copyfiles-help)
  345.    (source "Locale/Catalogs/nederlands")
  346.    (dest "SYS:Locale/Catalogs/nederlands")
  347.    (pattern "#?.catalog")
  348.    (confirm "EXPERT")
  349.    (optional "force" "nofail")
  350.   ))
  351.  
  352. (IF (BITAND installchoice 64)
  353.   (copyfiles
  354.    (prompt #Locale-Copy)
  355.    (help @copyfiles-help)
  356.    (source "Locale/Catalogs/norsk")
  357.    (dest "SYS:Locale/Catalogs/norsk")
  358.    (pattern "#?.catalog")
  359.    (confirm "EXPERT")
  360.    (optional "force" "nofail")
  361.   ))
  362.  
  363. (IF (BITAND installchoice 128)
  364.   (copyfiles
  365.    (prompt #Locale-Copy)
  366.    (help @copyfiles-help)
  367.    (source "Locale/Catalogs/suomi")
  368.    (dest "SYS:Locale/Catalogs/suomi")
  369.    (pattern "#?.catalog")
  370.    (confirm "EXPERT")
  371.    (optional "force" "nofail")
  372.   ))
  373.  
  374. (IF (BITAND installchoice 256)
  375.   (copyfiles
  376.    (prompt #Locale-Copy)
  377.    (help @copyfiles-help)
  378.    (source "Locale/Catalogs/svenska")
  379.    (dest "SYS:Locale/Catalogs/svenska")
  380.    (pattern "#?.catalog")
  381.    (confirm "EXPERT")
  382.    (optional "force" "nofail")
  383.   ))
  384.  
  385. (complete 80)
  386.  
  387. (IF (> installchoice 1)
  388.     (copyfiles
  389.     (prompt    #inst-lokale)
  390.     (help    @copyfiles-help)
  391.     (source "SCLokale.exe")
  392.     (dest    @default-dest)
  393.         (confirm "EXPERT")
  394.         (optional "force")
  395. ))
  396.  
  397. (complete 90)
  398.  
  399. ;*********************************************
  400. ; Set Loadpath SYS: (Tooltype), falls Work: not exists 
  401.  
  402. (set @Loadpath (getassign "Work" "dva"))
  403.   (if (= @Loadpath "")
  404.     (tooltype
  405.     (prompt "Set Tooltype")
  406.     (help @askchoice-help)
  407.     (dest (tackon @default-dest "SoundConvert"))
  408.         (confirm "EXPERT")
  409.         (optional "force")
  410.     (settooltype "LOADDIR" "SYS:")
  411.   ))
  412.  
  413. (complete 95)
  414.  
  415. ;*********************************************
  416. ; Set 8 Colors (Tooltype)
  417.  
  418. (Set magicwb
  419.     (run "ismagicwb")
  420. )
  421.  
  422. (if (= 5 magicwb)
  423.     (
  424.     (set UseStdGUI (askchoice (prompt #mwb-detected-prompt)
  425.                                 (help #mwb-detected-help)
  426.                                 (choices #mwb-0 #mwb-1)
  427.                                 (default 0)
  428.     )))
  429.     (
  430.     (set UseStdGUI (askchoice (prompt #mwb-notdetected-prompt)
  431.                                 (help #mwb-notdetected-help)
  432.                                 (choices #mwb-0 #mwb-1)
  433.                                 (default 1)
  434.     ))))
  435.  
  436.  (If (= UseStdGUI 0)
  437.     (tooltype
  438.     (prompt "Set Tooltype")
  439.     (help #mwb-detected-help)
  440.     (dest (tackon @default-dest "SoundConvert"))
  441.         (confirm "EXPERT")
  442.         (optional "force")
  443.     (settooltype "8COLORS" "")
  444.   ))
  445.  
  446. (complete 100)
  447.  
  448.  
  449. (EXIT #exit-Msg )
  450.